From 8ae8a9b88660173f24cd7bd8eb09511b051ba23c Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Mon, 16 Feb 2004 13:44:07 +0000 Subject: [PATCH] (auto-revert-dired-file-list): added missing variable `file' to `let'. (top level): Byte compiler fixes: defvar `dired-directory' added, autoload `dired-get-filename' added. --- lisp/autorevert.el | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/lisp/autorevert.el b/lisp/autorevert.el index 9005a7c4063..309517476e1 100644 --- a/lisp/autorevert.el +++ b/lisp/autorevert.el @@ -70,7 +70,11 @@ ;; Dependencies: (require 'timer) -(eval-when-compile (require 'cl)) +(autoload 'dired-get-filename "dired") + +(eval-when-compile + (defvar dired-directory) + (require 'cl)) ;; Custom Group: @@ -267,7 +271,7 @@ Use `auto-revert-mode' to revert a particular buffer." (defun auto-revert-dired-file-list () "Return list of dired files." - (let (list) + (let (file list) (save-excursion (goto-char (point-min)) (while (not (eobp)) @@ -296,7 +300,7 @@ Use `auto-revert-mode' to revert a particular buffer." (and (not (buffer-modified-p)) (if (buffer-file-name) (and (file-readable-p (buffer-file-name)) - (not (verify-visited-file-modtime buf))) + (not (verify-visited-file-modtime (current-buffer)))) (and revert-buffer-function (or (and global-auto-revert-mode global-auto-revert-non-file-buffers) -- 2.30.2